
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tIdiomas
# Region "tIdioma_x_Persona"
	private mlistatIdioma_x_Persona As New List (Of tIdioma_x_Persona)
Public Property ListatIdioma_x_Persona As System.Collections.Generic.List(Of tIdioma_x_Persona)
Get
dim mtIdioma_x_Persona As New tIdioma_x_Persona
mlistatIdioma_x_Persona =mtIdioma_x_Persona.TraerFiltradoListOf("IdIdioma",Me.IdIdioma)
Return mlistatIdioma_x_Persona
End Get
Set
RemoveAllListatIdioma_x_Persona()
If Not (Value Is Nothing) Then
Dim otIdioma_x_Persona As tIdioma_x_Persona
	For Each otIdioma_x_Persona in Value
		AddListatIdioma_x_Persona(otIdioma_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatIdioma_x_Persona(newtIdioma_x_Persona As tIdioma_x_Persona)
	If (mlistatIdioma_x_Persona Is Nothing) Then
		mlistatIdioma_x_Persona = new System.Collections.Generic.List(Of tIdioma_x_Persona)
	End If
	If Not mlistatIdioma_x_Persona.Contains(newtIdioma_x_Persona) Then
		mlistatIdioma_x_Persona.Add(newtIdioma_x_Persona)
		newtIdioma_x_Persona.tIdiomas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatIdioma_x_Persona(oldtIdioma_x_Persona As tIdioma_x_Persona)
	If (mlistatIdioma_x_Persona.Contains(oldtIdioma_x_Persona)) Then
		mlistatIdioma_x_Persona.Remove(oldtIdioma_x_Persona)
		oldtIdioma_x_Persona.tIdiomas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatIdioma_x_Persona()
	If Not (mlistatIdioma_x_Persona Is Nothing)
		Dim tmp_listatIdioma_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtIdioma_x_Persona As tIdioma_x_Persona
		For Each oldtIdioma_x_Persona in mlistatIdioma_x_Persona
			tmp_listatIdioma_x_Persona.Add(oldtIdioma_x_Persona)
		Next
	mlistatIdioma_x_Persona.Clear()
	For Each oldtIdioma_x_Persona in tmp_listatIdioma_x_Persona
		oldtIdioma_x_Persona = Nothing
	Next
	tmp_listatIdioma_x_Persona.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tIdiomas)
            Dim dtDatos As DataTable
            Dim listatIdiomas As New List(Of tIdiomas)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIdiomas As New tIdiomas
				mtIdiomas.IdIdioma = CType(dr.Item("IdIdioma"),Integer)
				mtIdiomas.Traer_objeto()
            	listatIdiomas.Add( mtIdiomas)
    		Next dr
Return listatIdiomas
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tIdiomas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatIdiomas As New List(Of tIdiomas)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIdiomas As New tIdiomas
				mtIdiomas.IdIdioma = CType(dr.Item("IdIdioma"),Integer)
				mtIdiomas.Traer_objeto()
            	listatIdiomas.Add( mtIdiomas)
    		Next dr
Return listatIdiomas
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tIdiomas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatIdiomas As New List(Of tIdiomas)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtIdiomas As New tIdiomas
				mtIdiomas.IdIdioma = CType(dr.Item("IdIdioma"),Integer)
				mtIdiomas.Traer_objeto()
            	listatIdiomas.Add( mtIdiomas)
    		Next dr
Return listatIdiomas
End Function
# End Region

End Class
End Namespace
